home *** CD-ROM | disk | FTP | other *** search
| Unknown | 2019-04-13 | 2.8 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '10 POKE53280,2'
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 50 4f 4b 45 35 | 33 32 38 30 2c 32 3a 50 |10 POKE5|3280,2:P|
|00000010| 4f 4b 45 35 33 32 38 31 | 2c 31 35 0a 32 30 20 50 |OKE53281|,15.20 P|
|00000020| 52 49 4e 54 22 93 90 11 | 11 11 11 11 11 11 11 11 |RINT"...|........|
|00000030| 11 20 20 50 52 45 53 53 | 20 12 31 92 20 46 4f 52 |. PRESS| .1. FOR|
|00000040| 20 47 52 41 50 48 49 43 | 53 20 4c 41 42 4c 45 53 | GRAPHIC|S LABLES|
|00000050| 11 11 22 0a 33 30 20 50 | 52 49 4e 54 22 20 20 50 |..".30 P|RINT" P|
|00000060| 52 45 53 53 20 12 32 92 | 20 46 4f 52 20 45 4e 48 |RESS .2.| FOR ENH|
|00000070| 41 4e 43 45 44 20 50 52 | 49 4e 54 49 4e 47 20 4c |ANCED PR|INTING L|
|00000080| 41 42 45 4c 53 22 0a 34 | 30 20 47 45 54 50 24 3a |ABELS".4|0 GETP$:|
|00000090| 50 3d 56 41 4c 28 50 24 | 29 3a 49 46 50 3c 31 4f |P=VAL(P$|):IFP<1O|
|000000a0| 52 50 3e 32 54 48 45 4e | 34 30 0a 35 30 20 50 52 |RP>2THEN|40.50 PR|
|000000b0| 49 4e 54 22 93 22 3a 47 | 4f 53 55 42 36 33 30 3a |INT".":G|OSUB630:|
|000000c0| 58 24 3d 22 12 20 20 20 | 20 20 20 20 20 20 20 20 |X$=". | |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 22 0a 36 | | ".6|
|000000f0| 30 20 50 52 49 4e 54 22 | 13 1c 11 11 11 11 11 11 |0 PRINT"|........|
|00000100| 11 11 22 3b 3a 46 4f 52 | 49 3d 38 54 4f 31 32 3a |..";:FOR|I=8TO12:|
|00000110| 50 52 49 4e 54 58 24 3b | 3a 4e 45 58 54 3a 50 52 |PRINTX$;|:NEXT:PR|
|00000120| 49 4e 54 22 92 90 22 0a | 37 30 20 49 46 50 3d 32 |INT"..".|70 IFP=2|
|00000130| 54 48 45 4e 50 52 49 4e | 54 22 13 1d 1d 1d 1d 1d |THENPRIN|T"......|
|00000140| 1d 1d 1d 1d 1c 12 20 20 | 92 22 0a 38 30 20 50 52 |...... |.".80 PR|
|00000150| 49 4e 54 22 13 12 1c 92 | 90 22 3a 47 4f 53 55 42 |INT"....|.":GOSUB|
|00000160| 36 38 30 3a 50 52 49 4e | 54 43 50 24 22 20 20 20 |680:PRIN|TCP$" |
|00000170| 28 31 29 20 20 44 45 53 | 49 47 4e 20 41 20 53 50 |(1) DES|IGN A SP|
|00000180| 45 43 49 41 4c 20 4c 41 | 42 45 4c 22 0a 39 30 20 |ECIAL LA|BEL".90 |
|00000190| 50 52 49 4e 54 22 11 20 | 20 20 28 32 29 20 20 4c |PRINT". | (2) L|
|000001a0| 4f 41 44 20 41 20 4c 41 | 42 45 4c 20 46 52 4f 4d |OAD A LA|BEL FROM|
|000001b0| 20 44 49 53 4b 22 3a 50 | 52 49 4e 54 22 11 20 20 | DISK":P|RINT". |
|000001c0| 20 28 33 29 20 20 43 48 | 41 4e 47 45 20 54 48 45 | (3) CH|ANGE THE|
|000001d0| 20 4c 41 42 45 4c 20 41 | 42 4f 56 45 00 0a 31 30 | LABEL A|BOVE..10|
|000001e0| 30 20 50 52 49 4e 54 22 | 11 20 20 20 28 34 29 20 |0 PRINT"|. (4) |
|000001f0| 20 53 41 56 45 20 54 48 | 45 20 4c 41 42 45 4c 20 | SAVE TH|E LABEL |
|00000200| 41 42 4f 56 45 20 54 4f | 20 44 49 53 4b 22 0a 31 |ABOVE TO| DISK".1|
|00000210| 31 30 20 50 52 49 4e 54 | 22 11 20 20 20 28 35 29 |10 PRINT|". (5)|
|00000220| 20 20 50 52 49 4e 54 20 | 54 48 45 20 4c 41 42 45 | PRINT |THE LABE|
|00000230| 4c 20 41 42 4f 56 45 22 | 3a 50 52 49 4e 54 22 11 |L ABOVE"|:PRINT".|
|00000240| 20 20 20 20 20 20 20 20 | 20 12 45 4e 54 45 52 20 | | .ENTER |
|00000250| 59 4f 55 52 20 43 48 4f | 49 43 45 92 00 0a 31 32 |YOUR CHO|ICE...12|
|00000260| 30 20 47 45 54 4d 24 3a | 4d 3d 56 41 4c 28 4d 24 |0 GETM$:|M=VAL(M$|
|00000270| 29 3a 49 46 4d 3c 31 4f | 52 4d 3e 35 54 48 45 4e |):IFM<1O|RM>5THEN|
|00000280| 31 32 30 0a 31 33 30 20 | 4f 4e 4d 47 4f 54 4f 35 |120.130 |ONMGOTO5|
|00000290| 35 30 2c 34 36 30 2c 35 | 35 30 2c 33 37 30 0a 31 |50,460,5|50,370.1|
|000002a0| 34 30 20 52 45 4d 20 2a | 20 50 52 49 4e 54 20 52 |40 REM *| PRINT R|
|000002b0| 4f 55 54 49 4e 45 20 2a | 0a 31 35 30 20 47 4f 53 |OUTINE *|.150 GOS|
|000002c0| 55 42 36 38 30 3a 50 52 | 49 4e 54 43 50 24 22 11 |UB680:PR|INTCP$".|
|000002d0| 11 11 50 4f 53 49 54 49 | 4f 4e 20 54 48 45 20 4c |..POSITI|ON THE L|
|000002e0| 41 42 45 4c 20 49 4e 20 | 54 48 45 20 50 52 49 4e |ABEL IN |THE PRIN|
|000002f0| 54 45 52 20 53 4f 22 0a | 31 36 30 20 50 52 49 4e |TER SO".|160 PRIN|
|00000300| 54 22 54 48 41 54 20 54 | 48 45 20 54 4f 50 20 4f |T"THAT T|HE TOP O|
|00000310| 46 20 54 48 45 20 4c 41 | 42 45 4c 20 49 53 20 41 |F THE LA|BEL IS A|
|00000320| 54 20 54 48 45 20 54 4f | 50 22 0a 31 37 30 20 50 |T THE TO|P".170 P|
|00000330| 52 49 4e 54 22 4f 46 20 | 54 48 45 20 50 52 49 4e |RINT"OF |THE PRIN|
|00000340| 54 48 45 41 44 20 41 4e | 44 20 50 52 45 53 53 20 |THEAD AN|D PRESS |
|00000350| 52 45 54 55 52 4e 2e 22 | 0a 31 38 30 20 47 45 54 |RETURN."|.180 GET|
|00000360| 58 24 3a 49 46 58 24 3c | 3e 43 48 52 24 28 31 33 |X$:IFX$<|>CHR$(13|
|00000370| 29 54 48 45 4e 31 38 30 | 0a 31 39 30 20 4f 50 45 |)THEN180|.190 OPE|
|00000380| 4e 33 2c 33 3a 4f 50 45 | 4e 34 2c 34 3a 4f 50 45 |N3,3:OPE|N4,4:OPE|
|00000390| 4e 36 2c 34 2c 36 3a 50 | 52 49 4e 54 23 36 2c 43 |N6,4,6:P|RINT#6,C|
|000003a0| 48 52 24 28 31 32 29 3a | 59 3d 34 0a 32 30 30 20 |HR$(12):|Y=4.200 |
|000003b0| 49 46 50 3d 31 54 48 45 | 4e 58 3d 31 30 32 36 3a |IFP=1THE|NX=1026:|
|000003c0| 46 4f 52 49 3d 30 54 4f | 37 3a 46 4f 52 4a 3d 33 |FORI=0TO|7:FORJ=3|
|000003d0| 54 4f 33 38 0a 32 31 30 | 20 49 46 50 3d 32 54 48 |TO38.210| IFP=2TH|
|000003e0| 45 4e 58 3d 31 30 33 35 | 3a 46 4f 52 49 3d 30 54 |ENX=1035|:FORI=0T|
|000003f0| 4f 37 3a 50 49 24 3d 43 | 48 52 24 28 31 34 29 3a |O7:PI$=C|HR$(14):|
|00000400| 46 4f 52 4a 3d 31 32 54 | 4f 32 39 0a 32 32 30 20 |FORJ=12T|O29.220 |
|00000410| 53 49 3d 50 45 45 4b 28 | 58 29 3a 49 46 53 49 3c |SI=PEEK(|X):IFSI<|
|00000420| 31 32 38 41 4e 44 59 3d | 33 54 48 45 4e 59 3d 32 |128ANDY=|3THENY=2|
|00000430| 0a 32 33 30 20 49 46 53 | 49 3e 31 32 37 41 4e 44 |.230 IFS|I>127AND|
|00000440| 59 3d 34 54 48 45 4e 59 | 3d 31 0a 32 34 30 20 49 |Y=4THENY|=1.240 I|
|00000450| 46 53 49 3e 31 32 37 54 | 48 45 4e 53 49 3d 53 49 |FSI>127T|HENSI=SI|
|00000460| 2d 31 32 38 0a 32 35 30 | 20 49 46 53 49 3d 31 32 |-128.250| IFSI=12|
|00000470| 37 54 48 45 4e 53 49 3d | 31 39 31 3a 47 4f 54 4f |7THENSI=|191:GOTO|
|00000480| 32 35 30 0a 32 36 30 20 | 49 46 53 49 3e 39 35 54 |250.260 |IFSI>95T|
|00000490| 48 45 4e 53 49 3d 53 49 | 2b 33 32 0a 32 37 30 20 |HENSI=SI|+32.270 |
|000004a0| 49 46 53 49 3e 36 33 54 | 48 45 4e 53 49 3d 53 49 |IFSI>63T|HENSI=SI|
|000004b0| 2b 33 32 0a 32 38 30 20 | 49 46 53 49 3c 33 32 54 |+32.280 |IFSI<32T|
|000004c0| 48 45 4e 53 49 3d 53 49 | 2b 36 34 0a 32 39 30 20 |HENSI=SI|+64.290 |
|000004d0| 53 49 24 3d 43 48 52 24 | 28 53 49 29 3a 49 46 59 |SI$=CHR$|(SI):IFY|
|000004e0| 3d 31 54 48 45 4e 53 49 | 24 3d 43 48 52 24 28 31 |=1THENSI|$=CHR$(1|
|000004f0| 38 29 2b 53 49 24 3a 59 | 3d 33 0a 33 30 30 20 49 |8)+SI$:Y|=3.300 I|
|00000500| 46 59 3d 32 54 48 45 4e | 53 49 24 3d 43 48 52 24 |FY=2THEN|SI$=CHR$|
|00000510| 28 31 34 36 29 2b 53 49 | 24 3a 59 3d 34 0a 33 31 |(146)+SI|$:Y=4.31|
|00000520| 30 20 50 49 24 3d 50 49 | 24 2b 53 49 24 3a 58 3d |0 PI$=PI|$+SI$:X=|
|00000530| 58 2b 31 3a 4e 45 58 54 | 3a 50 49 24 3d 50 49 24 |X+1:NEXT|:PI$=PI$|
|00000540| 2b 43 48 52 24 28 31 33 | 29 0a 33 32 30 20 50 52 |+CHR$(13|).320 PR|
|00000550| 49 4e 54 23 34 2c 50 49 | 24 3a 50 49 24 3d 22 22 |INT#4,PI|$:PI$=""|
|00000560| 09 0a 33 33 30 20 49 46 | 50 3d 32 54 48 45 4e 58 |..330 IF|P=2THENX|
|00000570| 3d 58 2b 32 32 0a 33 34 | 30 20 59 3d 34 3a 4e 45 |=X+22.34|0 Y=4:NE|
|00000580| 58 54 3a 50 52 49 4e 54 | 23 34 2c 43 48 52 24 28 |XT:PRINT|#4,CHR$(|
|00000590| 31 30 29 0a 33 35 30 20 | 43 4c 4f 53 45 33 3a 43 |10).350 |CLOSE3:C|
|000005a0| 4c 4f 53 45 34 3a 43 4c | 4f 53 45 36 3a 4f 50 45 |LOSE4:CL|OSE6:OPE|
|000005b0| 4e 31 30 2c 34 2c 31 30 | 3a 50 52 49 4e 54 23 31 |N10,4,10|:PRINT#1|
|000005c0| 30 3a 43 4c 4f 53 45 31 | 30 3a 47 4f 54 4f 37 30 |0:CLOSE1|0:GOTO70|
|000005d0| 0a 33 36 30 20 52 45 4d | 20 2a 20 53 41 56 45 20 |.360 REM| * SAVE |
|000005e0| 52 4f 55 54 49 4e 45 20 | 2a 0a 33 37 30 20 47 4f |ROUTINE |*.370 GO|
|000005f0| 53 55 42 36 38 30 3a 50 | 52 49 4e 54 43 50 24 3a |SUB680:P|RINTCP$:|
|00000600| 49 4e 50 55 54 22 53 41 | 56 45 20 46 49 4c 45 20 |INPUT"SA|VE FILE |
|00000610| 4e 41 4d 45 22 3b 4e 46 | 24 0a 33 38 30 20 49 46 |NAME";NF|$.380 IF|
|00000620| 4e 46 24 3d 22 22 54 48 | 45 4e 37 30 0a 33 39 30 |NF$=""TH|EN70.390|
|00000630| 20 4f 50 45 4e 33 2c 33 | 3a 4f 50 45 4e 38 2c 38 | OPEN3,3|:OPEN8,8|
|00000640| 2c 38 2c 22 30 3a 22 2b | 4e 46 24 2b 22 2c 53 2c |,8,"0:"+|NF$+",S,|
|00000650| 57 22 0a 34 30 30 20 49 | 46 50 3d 31 54 48 45 4e |W".400 I|FP=1THEN|
|00000660| 58 3d 31 30 32 36 3a 46 | 4f 52 49 3d 30 54 4f 37 |X=1026:F|ORI=0TO7|
|00000670| 3a 46 4f 52 4a 3d 33 54 | 4f 33 38 0a 34 31 30 20 |:FORJ=3T|O38.410 |
|00000680| 49 46 50 3d 32 54 48 45 | 4e 58 3d 31 30 33 35 3a |IFP=2THE|NX=1035:|
|00000690| 46 4f 52 49 3d 30 54 4f | 37 3a 46 4f 52 4a 3d 31 |FORI=0TO|7:FORJ=1|
|000006a0| 32 54 4f 32 39 0a 34 32 | 30 20 59 3d 50 45 45 4b |2TO29.42|0 Y=PEEK|
|000006b0| 28 58 29 3a 50 52 49 4e | 54 23 38 2c 59 3a 58 3d |(X):PRIN|T#8,Y:X=|
|000006c0| 58 2b 31 3a 4e 45 58 54 | 3a 49 46 50 3d 31 54 48 |X+1:NEXT|:IFP=1TH|
|000006d0| 45 4e 58 3d 58 2b 34 0a | 34 33 30 20 49 46 50 3d |ENX=X+4.|430 IFP=|
|000006e0| 32 54 48 45 4e 58 3d 58 | 2b 32 32 0a 34 34 30 20 |2THENX=X|+22.440 |
|000006f0| 4e 45 58 54 3a 43 4c 4f | 53 45 33 3a 43 4c 4f 53 |NEXT:CLO|SE3:CLOS|
|00000700| 45 38 3a 47 4f 54 4f 37 | 30 0a 34 35 30 20 52 45 |E8:GOTO7|0.450 RE|
|00000710| 4d 20 2a 20 4c 4f 41 44 | 20 52 4f 55 54 49 4e 45 |M * LOAD| ROUTINE|
|00000720| 20 2a 0a 34 36 30 20 47 | 4f 53 55 42 36 38 30 3a | *.460 G|OSUB680:|
|00000730| 50 52 49 4e 54 43 50 24 | 3a 49 4e 50 55 54 22 4c |PRINTCP$|:INPUT"L|
|00000740| 4f 41 44 20 46 49 4c 45 | 20 4e 41 4d 45 22 3b 4e |OAD FILE| NAME";N|
|00000750| 46 24 0a 34 37 30 20 49 | 46 20 4e 46 24 3d 22 22 |F$.470 I|F NF$=""|
|00000760| 54 48 45 4e 37 30 0a 34 | 38 30 20 4f 50 45 4e 33 |THEN70.4|80 OPEN3|
|00000770| 2c 33 3a 4f 50 45 4e 38 | 2c 38 2c 38 2c 22 30 3a |,3:OPEN8|,8,8,"0:|
|00000780| 22 2b 4e 46 24 2b 22 2c | 53 2c 52 22 0a 34 39 30 |"+NF$+",|S,R".490|
|00000790| 20 49 46 50 3d 31 54 48 | 45 4e 58 3d 31 30 32 36 | IFP=1TH|ENX=1026|
|000007a0| 3a 46 4f 52 49 3d 30 54 | 4f 37 3a 46 4f 52 4a 3d |:FORI=0T|O7:FORJ=|
|000007b0| 33 54 4f 33 38 0a 35 30 | 30 20 49 46 50 3d 32 54 |3TO38.50|0 IFP=2T|
|000007c0| 48 45 4e 58 3d 31 30 33 | 35 3a 46 4f 52 49 3d 30 |HENX=103|5:FORI=0|
|000007d0| 54 4f 37 3a 46 4f 52 4a | 3d 31 32 54 4f 32 39 0a |TO7:FORJ|=12TO29.|
|000007e0| 35 31 30 20 49 4e 50 55 | 54 23 38 2c 59 24 3a 59 |510 INPU|T#8,Y$:Y|
|000007f0| 3d 56 41 4c 28 59 24 29 | 3a 50 4f 4b 45 58 2c 59 |=VAL(Y$)|:POKEX,Y|
|00000800| 3a 58 3d 09 0a 35 32 30 | 20 49 46 50 3d 32 54 48 |:X=..520| IFP=2TH|
|00000810| 45 4e 58 3d 58 2b 32 32 | 0a 35 33 30 20 4e 45 58 |ENX=X+22|.530 NEX|
|00000820| 54 3a 43 4c 4f 53 45 33 | 3a 43 4c 4f 53 45 38 3a |T:CLOSE3|:CLOSE8:|
|00000830| 47 4f 54 4f 37 30 0a 35 | 34 30 20 52 45 4d 20 2a |GOTO70.5|40 REM *|
|00000840| 20 44 45 53 49 47 4e 20 | 41 20 4c 41 42 45 4c 20 | DESIGN |A LABEL |
|00000850| 2a 0a 35 35 30 20 47 4f | 53 55 42 36 38 30 3a 50 |*.550 GO|SUB680:P|
|00000860| 52 49 4e 54 43 50 24 22 | 11 11 11 11 43 45 4e 54 |RINTCP$"|....CENT|
|00000870| 45 52 20 59 4f 55 52 20 | 4c 41 42 45 4c 20 49 4e |ER YOUR |LABEL IN|
|00000880| 20 54 48 45 20 42 4c 4f | 43 4b 20 41 42 4f 56 45 | THE BLO|CK ABOVE|
|00000890| 2e 22 0a 35 36 30 20 50 | 52 49 4e 54 22 11 52 45 |.".560 P|RINT".RE|
|000008a0| 4d 45 4d 42 45 52 20 54 | 4f 20 4c 45 41 56 45 20 |MEMBER T|O LEAVE |
|000008b0| 53 50 41 43 45 53 20 42 | 45 54 57 45 45 4e 20 4c |SPACES B|ETWEEN L|
|000008c0| 49 4e 45 53 2e 22 0a 35 | 37 30 20 50 52 49 4e 54 |INES.".5|70 PRINT|
|000008d0| 22 11 50 52 45 53 53 20 | 12 52 45 54 55 52 4e 92 |".PRESS |.RETURN.|
|000008e0| 20 57 48 45 4e 20 44 4f | 4e 45 2e 13 22 0a 35 38 | WHEN DO|NE..".58|
|000008f0| 30 20 49 46 4d 3d 33 47 | 4f 54 4f 36 30 30 0a 35 |0 IFM=3G|OTO600.5|
|00000900| 39 30 20 47 4f 53 55 42 | 36 33 30 0a 36 30 30 20 |90 GOSUB|630.600 |
|00000910| 49 46 50 3d 31 54 48 45 | 4e 49 4e 50 55 54 22 13 |IFP=1THE|NINPUT".|
|00000920| 22 3b 4c 24 3a 47 4f 54 | 4f 37 30 0a 36 31 30 20 |";L$:GOT|O70.610 |
|00000930| 49 46 50 3d 32 54 48 45 | 4e 49 4e 50 55 54 22 13 |IFP=2THE|NINPUT".|
|00000940| 1d 1d 1d 1d 1d 1d 1d 1d | 1d 22 3b 4c 24 3a 47 4f |........|.";L$:GO|
|00000950| 54 4f 37 30 0a 36 32 30 | 20 52 45 4d 20 2a 20 53 |TO70.620| REM * S|
|00000960| 55 42 52 4f 55 54 49 4e | 45 20 46 4f 52 20 54 4f |UBROUTIN|E FOR TO|
|00000970| 50 20 4c 49 4e 45 53 20 | 2a 0a 36 33 30 20 49 46 |P LINES |*.630 IF|
|00000980| 50 3d 31 54 48 45 4e 58 | 24 3d 22 12 1c 20 20 92 |P=1THENX|$=".. .|
|00000990| 90 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009b0| 20 20 20 20 20 12 1c 20 | 20 92 90 22 0a 36 34 30 | .. | ..".640|
|000009c0| 20 49 46 50 3d 32 54 48 | 45 4e 58 24 3d 22 12 1c | IFP=2TH|ENX$="..|
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 92 90 20 20 20 | | .. |
|000009e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 12 | | .|
|000009f0| 1c 20 20 20 20 20 20 20 | 20 20 20 20 92 90 22 0a |. | ..".|
|00000a00| 36 35 30 20 50 52 49 4e | 54 22 13 22 3b 3a 46 4f |650 PRIN|T".";:FO|
|00000a10| 52 49 3d 30 54 4f 37 3a | 50 52 49 4e 54 58 24 3b |RI=0TO7:|PRINTX$;|
|00000a20| 3a 4e 45 58 54 3a 50 52 | 49 4e 54 22 13 22 0a 36 |:NEXT:PR|INT".".6|
|00000a30| 36 30 20 52 45 54 55 52 | 4e 0a 36 37 30 20 52 45 |60 RETUR|N.670 RE|
|00000a40| 4d 20 2a 20 53 55 42 52 | 4f 55 54 49 4e 45 20 46 |M * SUBR|OUTINE F|
|00000a50| 4f 52 20 42 4f 54 54 4f | 4d 09 0a 36 38 30 20 43 |OR BOTTO|M..680 C|
|00000a60| 50 24 3d 22 13 11 11 11 | 11 11 11 11 11 11 11 11 |P$="....|........|
|00000a70| 11 11 22 3a 58 24 3d 22 | 20 20 20 20 20 20 20 20 |..":X$="| |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000aa0| 22 0a 36 39 30 20 50 52 | 49 4e 54 43 50 24 3b 3a |".690 PR|INTCP$;:|
|00000ab0| 46 4f 52 49 3d 31 33 54 | 4f 32 33 3a 50 52 49 4e |FORI=13T|O23:PRIN|
|00000ac0| 54 58 24 3b 3a 4e 45 58 | 54 0a 37 30 30 20 50 52 |TX$;:NEX|T.700 PR|
|00000ad0| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |INT" | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 13 22 3a 52 45 | | .":RE|
|00000b00| 54 55 52 4e 0a | |TURN. | |
+--------+-------------------------+-------------------------+--------+--------+
